home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbsetup2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-31  |  3.2 KB  |  89 lines
  1. (*===========================================================================*)
  2. (* Setup file initialization                                                 *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989 by H. Roy Engehausen.  All rights reserved.        *)
  5. (*   This software may be freely distributed and used, but it may not        *)
  6. (*   under any circumstances be sold by anyone other than the author.        *)
  7. (*   It may be distributed by a commercial company as long as it is          *)
  8. (*   for no cost.                                                            *)
  9. (*                                                                           *)
  10. (*===========================================================================*)
  11.  
  12. PROCEDURE file_parm_setup;
  13.  
  14.   BEGIN;
  15.  
  16.     (*-----------------------------------------------------------------------*)
  17.     (* Set scan data -- File list                                            *)
  18.     (*-----------------------------------------------------------------------*)
  19.  
  20.     i_value := 1;
  21.     WITH file_parm_array[i_value], work_fsb DO
  22.       BEGIN;
  23.         parm_name            := 'DIRECTORY_NAME';
  24.         parm_type            := parm_string_upper;
  25.         parm_str_len         := SIZEOF(fsb_name);
  26.         parm_addr            := @fsb_name;
  27.       END;
  28.  
  29.     INC(i_value);
  30.     WITH file_parm_array[i_value], work_fsb DO
  31.       BEGIN;
  32.         parm_name            := 'DIRECTORY_ALIAS';
  33.         parm_type            := parm_string_upper;
  34.         parm_str_len         := SIZEOF(fsb_alias);
  35.         parm_addr            := @fsb_alias;
  36.       END;
  37.  
  38.     INC(i_value);
  39.     WITH file_parm_array[i_value], work_fsb DO
  40.       BEGIN;
  41.         parm_name            := 'DIRECTORY_PATH';
  42.         parm_type            := parm_path;
  43.         parm_str_len         := SIZEOF(fsb_path);
  44.         parm_addr            := @fsb_path;
  45.       END;
  46.  
  47.     INC(i_value);
  48.     WITH file_parm_array[i_value], work_fsb DO
  49.       BEGIN;
  50.         parm_name            := 'DIRECTORY_DESC';
  51.         parm_type            := parm_string;
  52.         parm_str_len         := SIZEOF(fsb_desc);
  53.         parm_addr            := @fsb_desc;
  54.       END;
  55.  
  56.     INC(i_value);
  57.     WITH file_parm_array[i_value], work_fsb DO
  58.       BEGIN;
  59.         parm_name            := 'CLASS_FOR_UPLOAD';
  60.         parm_type            := parm_user_class;
  61.         parm_addr            := @fsb_up;
  62.       END;
  63.  
  64.     INC(i_value);
  65.     WITH file_parm_array[i_value], work_fsb DO
  66.       BEGIN;
  67.         parm_name            := 'CLASS_FOR_DOWNLOAD';
  68.         parm_type            := parm_user_class;
  69.         parm_addr            := @fsb_down;
  70.       END;
  71.  
  72.     INC(i_value);
  73.     WITH file_parm_array[i_value], work_fsb DO
  74.       BEGIN;
  75.         parm_name            := 'SUBDIRECTORY_OK';
  76.         parm_type            := parm_boolean;
  77.         parm_addr            := @fsb_f_subdir_ok;
  78.       END;
  79.  
  80.     INC(i_value);
  81.     WITH file_parm_array[i_value], work_fsb DO
  82.       BEGIN;
  83.         parm_name            := 'BINARY_OK';
  84.         parm_type            := parm_boolean;
  85.         parm_addr            := @fsb_binary
  86.       END;
  87.  
  88.   END;
  89.